home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / grafix / misc / ami2d_2_0.lha / ami2d_dist / files / nowshell / rexxcon.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-09-19  |  1.3 KB  |  55 lines
  1. /*
  2. @Node Header
  3. @Next Macro
  4.  
  5. Code:       rexxcon.rexx
  6. Author:     Russell Leighton
  7. Revision:   16 Feb 1994
  8.  
  9. Comments:
  10.  
  11. This  script is used by ami2d.rexx to setup the console window.  It is only
  12. required  by  ami2d.rexx and should not be executed as a standalone script.
  13. It does, however, serve as an example script for rexxcon.
  14.  
  15. @EndNode
  16. @Node Macro
  17. */
  18.  
  19. options results
  20.  
  21. address command
  22. if ~show('ports',"RXC_AMI2D") then do
  23.     'run ami2d:bin/rexxcon -hRXC_AMI2D'
  24.     'waitforport RXC_AMI2D'
  25. end
  26.  
  27. address rxb_main 'open'
  28. parse var result ix iy iw ih
  29.  
  30. address rxc_ami2d 
  31.  
  32. /* For no WShell, the next line should be uncommented */
  33.  
  34. 'open(con,0,-50,'0 - iw',50,Ami2D/noclose/nosize/nodepth/noalt/nonblock,AMI2D)'
  35.  
  36. /* For WShell (CNC: device), the next line should be uncommented */
  37.  
  38. /* 'open(cnc,0,-50,'0 - iw',50,Ami2D/noclose/nosize/nodepth/noalt/nonblock/menu#ami2d,AMI2D)' */
  39.  
  40. 'alias refine=!ami2d:macros/geom/refine'
  41. 'alias transition=!ami2d:macros/geom/transition'
  42. 'alias equiv=!ami2d:macros/solve/equ2d'
  43. 'alias remove=!ami2d:macros/solve/rem2d'
  44. 'alias optimize=!ami2d:macros/solve/opt2d'
  45. 'alias solve=!ami2d:macros/solve/lin2d'
  46. 'alias nlsolve=!ami2d:macros/solve/nln2d'
  47. 'alias iterate=!ami2d:test/iterate'
  48. 'alias post=!ami2d:macros/process/post2d'
  49. 'alias status=!ami2d:rexx/solstat'
  50. 'alias quit=stop'
  51. 'alias bye=stop'
  52. 'alias exit=stop'
  53.  
  54. exit
  55.